home *** CD-ROM | disk | FTP | other *** search
/ The Game Master (3rd Edition) / The Game Master 3rd edition.iso / files / gametors / warrisk / beep.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-10-19  |  174 b   |  13 lines
  1. PROCEDURE beep(n:integer);
  2. { emits n beep sounds }
  3.  
  4. var i : integer;
  5. BEGIN
  6.   for i := 1 to n do
  7.   begin
  8.     sound(440);
  9.     delay(250);
  10.     nosound;
  11.   end;
  12. END;
  13.